home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side A).do / JULY.COVER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  51 lines
  1. 100  REM ***********************
  2. 110  REM * SOFTDISK COVER PAGE *
  3. 120  REM *  V1 #11 JULY, 1982  *
  4. 130  REM *                     *
  5. 140  REM *     BY JIM GANZ     *
  6. 142  REM *    82 SPRING LANE   *
  7. 144  REM *  WEST HARTFORD, CT. *
  8. 146  REM *        06107        *
  9. 150  REM *                     *
  10. 160  REM * TEXT GENERATED WITH *
  11. 170  REM *    "HIGHER TEXT"    *
  12. 172  REM *   AND BEAGLE BROS.  *
  13. 174  REM *  "APPLE MECHANIC"   *
  14. 180  REM *                     *
  15. 190  REM * PICTURE PACKING AND *
  16. 200  REM *    UNPACKING BY     *
  17. 210  REM * DAVID LUBAR FROM    *
  18. 220  REM *"CREATIVE COMPUTING,"*
  19. 225  REM * JUNE 1981 PP.128-38 *
  20. 230  REM ***********************
  21. 240  POKE 230,32: HCOLOR= 0: HPLOT 0,0: CALL 62454: TEXT : HOME 
  22. 250  GOSUB 350: IF  PEEK(4096) < >173  OR  PEEK(4097)  THEN  PRINT  CHR$(4)"BLOADCOVER.UNPACK"
  23. 260  PRINT  CHR$(4)"BLOADCOVER.JULY.PCKD"
  24. 270  VTAB 22: HTAB 7: PRINT "PRESS ANY KEY TO VIEW COVER"
  25. 275  VTAB 24: HTAB 7: PRINT "(THEN PRESS AGAIN TO EXIT)";
  26. 280  POKE  -16368,0: CALL  -756
  27. 285  POKE 33,1: FOR X = 0 TO 19: POKE 32,X: HOME : POKE 32,39 -X: HOME : NEXT : TEXT 
  28. 290  POKE  -16300,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0
  29. 300  CALL 4096
  30. 310  CALL  -756: PRINT 
  31. 340  PRINT  CHR$(4)"RUNKICK.IT.OFF"
  32. 350  VTAB 3: INVERSE : FOR X = 0 TO 9: HTAB 11: PRINT  SPC( 29): PRINT : NEXT 
  33. 360  NORMAL 
  34. 370  VTAB 1: HTAB 3: PRINT "S O F T D I S K   M A G A Z E T T E"
  35. 372  VTAB 5: PRINT "QUOTE": PRINT "OF": PRINT "THE": PRINT "MONTH"
  36. 374  PRINT : PRINT "--->"
  37. 380  INVERSE 
  38. 400  VTAB 4
  39. 410  HTAB 12: PRINT  CHR$(34)"I AM THANKFUL FOR THE"
  40. 420  HTAB 12: PRINT "AMERICA I AM SEEING THROUGH"
  41. 430  HTAB 12: PRINT "THE EYES OF MR. SOFTDISK. I"
  42. 440  HTAB 12: PRINT "AM SEEING VITAL EAGER CAN-"
  43. 450  HTAB 12: PRINT "DO INDIVIDUALS... IF APPLE"
  44. 460  HTAB 12: PRINT "PEOPLE ARE A FAIR SAMPLE,"
  45. 470  HTAB 12: PRINT "WE WILL BE ABLE TO ADAPT TO"
  46. 480  HTAB 12: PRINT "(ANY) CIRCUMSTANCES..." CHR$(34)
  47. 490  NORMAL 
  48. 500  VTAB 15
  49. 510  PRINT " * JIM MANGHAM ('MR. SOFTDISK') IN         " CHR$(34)"SOFTDISK MAGAZETTE" CHR$(34)" VOL 1 NO. 3."
  50. 530  VTAB 19: HTAB 12: PRINT "COVER BY JIM GANZ"
  51. 540  RETURN